Filename: /text/sbasic/shared/03090404.xhp

End Statement [Runtime]
End ステートメント [実行時](hd_id3150771.1)

Ends a procedure or block.
プロシージャーやブロックの終了を宣言します。(par_id3153126.2)

Syntax:
構文:(hd_id3147264.3)

End, End Function, End If, End Select, End Sub
End、End Function、End If、End Select、End Sub(par_id3148552.4)

Parameters:
パラメータ:(hd_id3149456.5)

Use the End statement as follows:
End ステートメントは、下記のように使用します。(par_id3150398.6)

Statement
ステートメント(hd_id3154366.7)

End: Is not required, but can be entered anywhere within a procedure to end the program execution.
終了期:必ずしも使用する必要はありませんが、プロシージャー中でプログラムの実行を終了させたい任意の位置に配置できます。(par_id3151043.8)

End Function: Ends a Function statement.
End Function:Function ステートメントの終了を宣言します。(par_id3145171.9)

End If: Marks the end of a If...Then...Else block.
End If:If...Then...Else ブロックの終了を宣言します。(par_id3153192.10)

End Select: Marks the end of a Select Case block.
End Select:Select Case ブロックの終了を宣言します。(par_id3148451.11)

End Sub: Ends a Sub statement.
End Sub:Sub ステートメントの終了を宣言します。(par_id3155131.12)

Example:
例:(hd_id3146120.13)

Sub ExampleRandomSelect
Sub ExampleRandomSelect(par_id3146985.14)

Dim iVar As Integer
Dim iVar As Integer(par_id3153363.15)

iVar = Int((15 * Rnd) -2)
IVar = Int((15 * Rnd) -2)(par_id3153727.16)

Select Case iVar
Select Case iVar(par_id3150011.17)

Case 1 To 5
Case 1 To 5(par_id3149481.18)

Print "Number from 1 to 5"
Print "Number from 1 to 5"(par_id3152887.19)

Case 6, 7, 8
Case 6, 7, 8(par_id3163713.20)

Print "Number from 6 to 8"
Print "Number from 6 to 8"(par_id3148618.21)

Case Is > 8 And iVar < 11
Case Is > 8 And iVar < 11(par_id3153144.22)

Print "Greater than 8"
Print "Greater than 8"(par_id3147436.23)

Case Else
Case Else(par_id3155418.24)

Print "Outside range 1 to 10"
Print "Outside range 1 to 10"(par_id3150418.25)

End Select
End Select(par_id3156285.26)

end sub
end sub(par_id3149582.27)